home *** CD-ROM | disk | FTP | other *** search
- PXFUCOMPARE(3F) Last changed: 1-6-98
-
-
- NNAAMMEE
- PPXXFFUUCCOOMMPPAARREE - Compares unsigned integers
-
- SSYYNNOOPPSSIISS
- SSUUBBRROOUUTTIINNEE PPXXFFUUCCOOMMPPAARREE ((_i_1,, _i_2,, _i_c_m_p_r,, _i_d_i_f_f))
- IINNTTEEGGEERR _i_1,, _i_2,, _i_c_m_p_r,, _i_d_i_f_f
-
- IIMMPPLLEEMMEENNTTAATTIIOONN
- UNICOS, UNICOS/mk, and IRIX systems
-
- DDEESSCCRRIIPPTTIIOONN
- On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
- default when compiling programs with the MIPSpro 7 Fortran 90 compiler
- or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
- 7.2 F77 compiler.
-
- The PPXXFFUUCCOOMMPPAARREE routine performs comparisons of C unsigned integers
- returned by some IEEE FORTRAN 77 routines.
-
- When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
- UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
- kind unless documented otherwise. On UNICOS and UNICOS/mk, default
- kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
- IRIX, the default kind is KKIINNDD==44.
-
- The following is a list of arguments for this routine:
-
- _i_1 An input integer variable for a C unsigned integer.
-
- _i_2 An input integer variable for a C unsigned integer.
-
- _i_c_m_p_r An output integer variable that, on return from the routine,
- contains one of these values:
- -1 If _i_1 < _i_2
- 0 If _i_1 = _i_2
- 1 If _i_1 > _i_2
-
- All of the comparisons are made using C unsigned integer
- comparisons.
-
- _i_d_i_f_f An output integer variable that on return from the routine
- contains the absolute value of the difference of _i_1 and _i_2.
- Since the values are C unsigned integers and FORTRAN 77 does
- not directly support unsigned integers the value may be
- negative, which indicates the value is beyond the maximum
- positive value of a FORTRAN 77 integer.
-
- EEXXAAMMPPLLEESS
- In this example, the program calls PPXXFFTTIIMMEESS(3F) to return the process
- time information and then uses PPXXFFUUCCOOMMPPAARREE to determine if the system
- time was greater than 1000000000 clock ticks.
-
- program testpxf
- integer itime, jtms, ierr, stime, icmpr, idiff
-
- call PXFSTRUCTCREATE('tms',jtms,ierr)
- if (ierr .ne. 0) then
- print *,'FAILED: PXFSTRUCTCREATE call with error = ',ierror
- else
- call PXFTIMES(jtms,itime,ierr)
- if (ierr .ne. 0) then
- print *,'FAILED: PXFTIMES call with error = ',ierror
- else
- call PXFINTGET(jtms,'tms_stime',stime,ierr)
- if (ierr .ne. 0) then
- print *,'FAILED: PXFINTGET call for tms_stime with error = ',ierror
- else
- CALL PXFUCOMPARE(stime,1000000000,icmpr,idiff)
- if (icmpr .eq. 1) then
- print *,'System time longer than 1000000000 clock ticks.'
- else
- print *,'System time less than or equal to 1000000000 clock ticks.'
- endif
- endif
- endif
- endif
- end
-
- SSEEEE AALLSSOO
- PPXXFFTTIIMMEESS(3F)
-
- _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-
- 2165, for the printed version of this man page.
-
-